home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / fakephre.arc / FAKEPHRE.BAS next >
Encoding:
BASIC Source File  |  1986-10-26  |  4.8 KB  |  152 lines
  1. 1 REM System Buster
  2. 2 REM By Phreak Phantom
  3. 3 REM Version 1.0    10/26/86
  4. 10 CLS:LOCATE ,,0:SCREEN 0,0,0:KEY OFF
  5. 20 COLOR 20
  6. 30 LOCATE 10,28:PRINT "System Buster......"
  7. 40 COLOR 2:LOCATE 12,28:PRINT "By Phreak Phantom"
  8. 41 COLOR 6:LOCATE 14,28:PRINT "Version 1.0    10/26/86"
  9. 50 FOR X=1 TO 2555:NEXT X
  10. 60 CLS:PRINT "Name?":INPUT B$:FOR X=1 TO 2000:NEXT X:CLS
  11. 70 PRINT "Access code?":COLOR 20:LOCATE 1,60:PRINT "System Inactive":COLOR 2
  12. 80 INPUT A$
  13. 85 PRINT
  14. 90 PRINT A$ " ,is that right?"
  15. 100 INPUT A$
  16. 110 PRINT:PRINT "How can I be sure this is " B$"?"
  17. 120 INPUT A$
  18. 130 PRINT "Same to you buddy boy...":FOR X=1 TO 1500:NEXT X
  19. 140 CLS:COLOR 9:LOCATE 1,60:PRINT "System":COLOR 20:LOCATE 1,67:PRINT "Active"
  20. 150 COLOR 2:PRINT "Com1 or Com2 (1/2)?":INPUT A$
  21. 151 COLOR 7:PRINT "Enter Fone Number 1 digit at a time."
  22. 152 COLOR 2
  23. 170 PRINT "Number 1"
  24. 180 INPUT A$
  25. 185 PRINT
  26. 190 PRINT "Number 2"
  27. 200 INPUT B$
  28. 205 PRINT
  29. 210 PRINT "Number 3"
  30. 220 INPUT C$
  31. 225 PRINT
  32. 230 PRINT "Number 4"
  33. 240 INPUT D$
  34. 245 PRINT
  35. 250 PRINT "Number 5"
  36. 260 INPUT E$
  37. 265 PRINT
  38. 270 PRINT "Number 6"
  39. 280 INPUT F$
  40. 285 PRINT
  41. 290 PRINT "Number 7"
  42. 300 INPUT G$
  43. 305 PRINT
  44. 310 CLS:COLOR 9:LOCATE 1,60:PRINT "System":COLOR 20:LOCATE 1,67:PRINT "Active"
  45. 320 COLOR 2:PRINT A$ B$ C$"-"D$ E$ F$ G$
  46. 330 PRINT "Is this right?"
  47. 340 INPUT DF$
  48. 350 PRINT "Ok, lets rock and roll!"
  49. 360 FOR X=1 TO 1500:NEXT X
  50. 370 CLS:COLOR 6:LOCATE 1,60:PRINT "System":COLOR 20:LOCATE 1,68:PRINT "Active"
  51. 380 PRINT "=========="
  52. 390 PRINT "="A$ B$ C$"-"D$ E$ F$ G$"="
  53. 400 PRINT "=========="
  54. 410 COLOR 2
  55. 415 LOCATE 7,1:PRINT "Dialing. . . ."
  56. 420 COLOR 3:FOR X=1 TO 4555:NEXT X
  57. 425 LOCATE 10,1:PRINT A$
  58. 430 FOR X=1 TO 850:NEXT X
  59. 440 LOCATE 10,3:PRINT B$
  60. 450 FOR X=1 TO 850:NEXT X
  61. 460 LOCATE 10,5:PRINT C$"-"
  62. 465 FOR X=1 TO 850:NEXT X
  63. 470 LOCATE 10,7:PRINT D$
  64. 480 FOR X=1 TO 850:NEXT X
  65. 490 LOCATE 10,9:PRINT E$
  66. 495 FOR X=1 TO 850:NEXT X
  67. 500 LOCATE 10,11:PRINT F$
  68. 505 FOR X=1 TO 850:NEXT X
  69. 510 LOCATE 10,13:PRINT G$
  70. 520 FOR X=1 TO 850:NEXT X
  71. 525 COLOR 9:LOCATE 7,1:PRINT "Dialing complete...."
  72. 535 FOR X=1 TO 2900:NEXT X
  73. 540 CLS:COLOR 6:LOCATE 1,60:PRINT "System":COLOR 20:LOCATE 1,68:PRINT "Connected":COLOR 9
  74. 550 LOCATE 1,1:PRINT A$ B$ C$"-"D$ E$ F$ G$
  75. 560 LOCATE 2,1:PRINT "Connected......."
  76. 561 FOR X=1 TO 4000:NEXT X
  77. 562 PRINT "Operating at 1200 baud.":FOR X=1 TO 3000:NEXT X:PRINT "Simple COLOSSUS code system":FOR X=1 TO 4000:NEXT X
  78. 571 COLOR 4:PRINT "Determining Code Structure":FOR X=1 TO 7000:NEXT X
  79. 572 COLOR 2:PRINT "Code Struture Found/Determined":FOR X=1 TO 4000:NEXT X
  80. 573 COLOR 6:PRINT "Entering DECODE sub-program, please wait.":FOR X=1 TO 8000:NEXT X
  81. 574 COLOR 3:PRINT "Sub-program runing.":FOR X=1 TO 6000:NEXT X
  82. 575 COLOR 4:PRINT "Begining DECODING PROCESS.":FOR X=1 TO 8000:NEXT X
  83. 580 LOCATE 16,30:PRINT "Decoding process begining in...."
  84. 590 LOCATE 16,61:PRINT "10"
  85. 600 FOR X=1 TO  700:NEXT X
  86. 610 LOCATE 16,61:PRINT "09"
  87. 620 FOR X=1 TO  700:NEXT X
  88. 621 LOCATE 16,61:PRINT "08"
  89. 622 FOR X=1 TO  700:NEXT X
  90. 650 LOCATE 16,61:PRINT "07"
  91. 660 FOR X=1 TO  700:NEXT X
  92. 670 LOCATE 16,61:PRINT "06"
  93. 680 FOR X=1 TO  700:NEXT X
  94. 690 LOCATE 16,61:PRINT "05"
  95. 700 FOR X=1 TO  700:NEXT X
  96. 710 LOCATE 16,61:PRINT "04"
  97. 720 FOR X=1 TO  700:NEXT X
  98. 730 LOCATE 16,61:PRINT "03"
  99. 740 FOR X=1 TO  700:NEXT X
  100. 750 LOCATE 16,61:PRINT "02"
  101. 760 FOR X=1 TO  700:NEXT X
  102. 770 LOCATE 16,61:PRINT "01"
  103. 780 FOR X=1 TO  700:NEXT X
  104. 785 LOCATE 16,61:PRINT "00"
  105. 790 FOR X=1 TO 1000:NEXT X
  106. 800 LOCATE 16,30:PRINT "Process is completed, go ahead          "
  107. 805 FOR X=1 TO 1000:NEXT X
  108. 810 CLS
  109. 820 INPUT A$
  110. 830 PRINT "Ok"
  111. 840 INPUT A$
  112. 850 PRINT "Ok"
  113. 860 INPUT A$
  114. 870 PRINT "Ok"
  115. 880 INPUT A$
  116. 890 PRINT "Ok"
  117. 900 INPUT A$
  118. 910 PRINT "Ok"
  119. 920 INPUT A$
  120. 930 PRINT "Ok"
  121. 940 INPUT A$
  122. 950 PRINT "Ok"
  123. 955 FOR X=1 TO 3000:NEXT X
  124. 960 COLOR 2:PRINT "Trap/Trace signal being received."
  125. 970 COLOR 20:PRINT "Danger!"
  126. 980 FOR X=1 TO 3000:NEXT X
  127. 990 COLOR 8:PRINT "Shall I terminate Connection?"
  128. 1000 INPUT ZXA$
  129. 1100 PRINT
  130. 1200 PRINT
  131. 1300 PRINT
  132. 1400 PRINT
  133. 1500 COLOR 20:PRINT "Trap complete! Danger!"
  134. 1600 FOR X=1 TO 4500:NEXT X
  135. 1700 COLOR 2:PRINT "Foil Trace signal beging sent to fool TRACE."
  136. 1800 FOR X=1 TO 4500:NEXT X
  137. 1900 COLOR 20:PRINT "Trace beginging! Danger!
  138. 2000 FOR X=1 TO 4500:NEXT X
  139. 2100 COLOR 2:PRINT "Sending dummy trace signal."
  140. 2200 COLOR 20:PRINT "Danger!"
  141. 2300 FOR X=1 TO 4500:NEXT X
  142. 2500 COLOR 2:PRINT "Danger, cannot sent hang up signal to modem!"
  143. 2600 COLOR 20:PRINT "Danger!"
  144. 2700 FOR X=1 TO 4500:NEXT X
  145. 2701 PRINT "Hope your wearing anti-persperent":FOR X=1 TO 3000:NEXT X
  146. 2702 COLOR 20:PRINT "<HIT> Alt-H to send a 3000 mhz down the line."
  147. 2703 IF INKEY$="" THEN 2703
  148. 2704 PRINT "Fried em'":FOR X=1 TO 5000:NEXT X
  149. 2800 COLOR 2:PRINT "Hang up complete, No danger...."
  150. 2900 COLOR 2:PRINT "That was a close one, that makes the 35 one. "
  151. 3000 PRINT "Program ending, see ya later."
  152.